1 Introduction

2 Data

2.1 Patients

patients <- read_csv('Data/patients.csv')

patients %>%
  kbl(booktabs = T) %>%
  kable_material(c('hover', 'striped'), full_width = F) %>%
  scroll_box(width = "100%", height = "250px")
NUMERO ID SEXO EDAD PRESION_ARTERIAL PESO_kg TALLA_cm ROTA_CERV_MANUAL_DERECHA ROTA_CERV_MANUAL_IZQUIERDA ROTA_CERV_LAB_DERECHA ROTA_CERV_LAB_IZQUIERDA FLEX_FRONT_CERV_MANUAL_GRAD_FLEXION FLEX_FRONT_CERV_MANUAL_GRAD_EXTESION FLEX_FRONT_CERV_LAB_GRAD_FLEXION FLEX_FRONT_CERV_LAB_GRAD_EXTESION FLEX_LAT_CERV_MANUAL_GRAD_DERECHA FLEX_LAT_CERV_MANUAL_GRAD_IZQUIERDA FLEX_LAT_CERV_LAB_GRAD_DERECHA FLEX_LAT_CERV_LAB_GRAD_IZQUIERDA SHOBERT_MODIFICADO_CM_MANUAL SHOBERT_MODIFICADO_CM_LABORATORIO FLEX_LUMBAR_LAT_MANUAL_CM_DERECHA FLEX_LUMBAR_LAT_MANUAL_CM_IZQUIERDA FLEX_LUMBAR_LAT_LAB_CM_DERECHA FLEX_LUMBAR_LAT_LAB_CM_IZQUIERDA DISTANCIA_INTERMALEOLAR_MANUAL_CM DISTANCIA_INTERMALEOLAR_LAB_CM DISTANCIA_TRAGO_PARED_MANUAL DISTANCIA_TRAGO_PARED_LABORATORIO BIOLOGICO TIPO ASDAS BASDAI CONTROLADO OBSERVACIONES
1 1045690975 M 29 135/87 78.5 174 50 50 49.8 70.60 35 30 40.0 29.50 50.0 48.0 38.0 37.00 19.5 16.0 10.0 8.0 16.5 16.6 35 28.3 10.0 N/A SI GOLIMUMAB NA NA SI NA
2 7694437 M 47 119/90 98.4 164 35 35 39.6 37.60 20 30 13.7 19.60 46.5 20.0 25.3 14.60 21.0 13.0 7.0 9.0 8.0 8.5 28 21.0 21.0 N/A SI ADALIMUMAB NA NA NO (UVEITIS 3 EPISODIOS- CAMBIO DE BIOLOGICO)
3 17338396 M 51 133/93 116.0 183 55 60 46.4 49.80 45 75 37.0 20.90 63.0 57.0 30.6 30.40 22.0 20.0 15.0 16.0 20.0 19.0 31 33.0 14.0 N/A NO NA NA NA SI NA
4 79359992 M 53 134/100 87.5 165 45 50 44.3 58.30 35 50 26.7 18.40 55.0 60.0 22.0 19.60 21.0 18.0 9.0 6.0 8.3 9.3 22 20.0 16.0 N/A NO NA NA NA NO (UVEITIS)
5 75083369 M 42 140/90 69.4 170 38 50 43.3 66.33 20 31 35.1 19.20 45.0 60.0 28.6 35.00 24.0 22.0 18.5 19.0 17.0 20.7 43 38.0 13.5 N/A NO NA NA NA NO (UVEITIS 4 EPISODIOS- INICIO DE BIOLOGICO)
6 19208383 M 67 160/96 99.0 183 52 60 44.0 48.60 38 40 25.1 21.10 27.0 50.0 17.3 18.60 18.0 15.0 3.5 4.5 7.5 6.6 43 37.1 18.0 N/A NO NA 0.36 2.1 SI NA
7 19279094 M 64 116/67 62.0 174 49 48 48.3 51.60 42 37 28.4 17.40 40.0 45.0 24.1 18.55 21.0 21.0 9.5 9.5 9.9 9.5 36 29.0 11.0 N/A SI GOLIMUMAB NA NA SI NA
8 79455852 M 51 141/98 68.3 175 55 58 62.4 65.20 60 87 42.4 40.30 65.0 67.0 39.1 35.60 22.5 19.4 16.0 16.0 21.0 19.0 34 28.0 10.0 N/A SI ADALIMUMAB NA NA SI NA
9 79827683 M 45 126/88 64.8 171 40 45 47.0 53.80 37 35 22.9 17.90 40.0 50.0 16.9 20.70 19.5 19.0 10.0 11.0 13.9 9.5 26 23.0 13.0 N/A SI ADALIMUMAB 2.89 6.8 NO NA
10 72283321 M 36 135/75 76.0 168 45 55 58.4 63.10 42 70 44.2 31.40 65.0 65.0 45.8 41.80 23.0 20.4 10.5 9.0 15.0 15.0 32 31.0 11.0 N/A NO NA NA NA SI NA
11 80441042 M 47 130/89 86.6 172 40 50 56.0 48.40 25 20 16.8 11.33 55.0 58.0 33.9 31.40 21.0 18.7 8.5 11.0 19.0 19.0 26 20.0 12.0 N/A SI ADALIMUMAB NA 3.3 NO (BAJA ACTIVIDAD DE LA ENFERMEDAD)
12 39796643 F 49 115/74 66.5 159 40 35 42.7 37.30 45 40 24.2 24.20 37.0 60.0 18.8 17.70 20.5 20.7 14.0 13.5 20.0 20.0 32 25.0 14.0 N/A NO NA NA NA NO (DOLOR ARTICULAR )
13 39769521 F 49 116/88 83.5 168 53 52 51.2 48.20 30 48 26.6 24.40 30.0 34.0 31.6 31.30 19.0 18.0 10.0 10.0 11.2 12.4 41 40.7 11.0 N/A NO NA NA NA NO (DOLOR ARTICULAR- ANTIBIOLOGICO CONTRAINDICADO POR CARDIOPATIA DILATADA
14 51669839 F 58 112/77 52.8 160 35 40 46.5 43.20 37 30 37.1 18.00 30.0 53.0 15.3 15.00 20.5 20.0 4.0 8.0 17.7 18.0 26 20.0 13.0 N/A SI GOLIMUMAB NA NA SI NA
15 65777094 F 43 103/82 64.0 162 55 60 21.0 19.80 45 60 29.3 32.60 45.0 50.0 35.2 34.30 21.5 20.7 14.0 14.5 15.0 14.0 45 32.0 9.5 N/A SI GOLIMUMAB NA NA NO (RECIENTE CAMBIO DE BIOLOGICO)
16 51697173 F 56 170/100 57.9 160 55 60 63.0 60.00 53 55 39.7 39.60 46.0 60.0 30.6 27.00 22.7 18.0 10.0 12.5 13.2 12.3 36 27.3 12.0 N/A NO NA NA NA NO (DOLOR ARTICULAR)
17 39525467 F 58 127/89 70.0 156 60 64 51.0 45.40 39 50 33.7 30.60 40.0 47.5 21.6 21.40 21.0 22.8 4.0 4.0 6.4 6.4 32 33.0 14.0 N/A SI GOLIMUMAB NA NA SI NA
18 51653334 F 57 122/90 59.7 148 32 30 31.5 24.10 33 30 19.2 16.20 25.0 30.0 13.8 17.80 20.5 15.7 10.5 9.0 7.9 8.9 34 22.0 11.0 N/A NO NA NA 8.2 NO (SE SUSPENDIO BIOLOGICO POR REACCION ADVERSA)
19 39700172 F 56 113/81 67.0 155 37 40 49.7 49.90 30 33 12.7 12.30 40.0 47.0 30.7 27.10 19.0 15.8 10.0 9.5 9.2 8.8 49 36.0 10.0 N/A SI VEDOLIZUMAB? NA NA NO (DOLOR ARTICULAR)
20 35314726 F 62 147/92 86.5 165 55 57 45.2 49.30 50 65 33.4 26.70 45.0 53.0 20.7 19.50 19.0 15.7 8.5 9.0 9.4 9.7 48 32.0 11.5 N/A SI GOLIMUMAB NA NA SI NA
21 52272228 F 43 142/83 57.3 163 50 55 50.1 44.40 20 60 35.8 NA 37.0 55.0 37.3 34.20 23.0 21.7 17.0 18.0 19.8 19.2 42 32.0 11.0 N/A SI ADALIMUMAB NA 4.8 NO NA

2.2 Controls

controls <- read_csv('Data/controls.csv')

controls %>%
  kbl(booktabs = T) %>%
  kable_material(c('hover', 'striped'), full_width = F) %>%
  scroll_box(width = "100%", height = "250px")
NUMERO ID SEXO EDAD PRESION_ARTERIAL PESO_kg TALLA_cm ROTA_CERV_MANUAL_DERECHA ROTA_CERV_MANUAL_IZQUIERDA ROTA_CERV_LAB_DERECHA ROTA_CERV_LAB_IZQUIERDA FLEX_FRONT_CERV_MANUAL_GRAD_FLEXION FLEX_FRONT_CERV_MANUAL_GRAD_EXTESION FLEX_FRONT_CERV_LAB_GRAD_FLEXION FLEX_FRONT_CERV_LAB_GRAD_EXTESION FLEX_LAT_CERV_MANUAL_GRAD_DERECHA FLEX_LAT_CERV_MANUAL_GRAD_IZQUIERDA FLEX_LAT_CERV_LAB_GRAD_DERECHA FLEX_LAT_CERV_LAB_GRAD_IZQUIERDA SHOBERT_MODIFICADO_CM_MANUAL SHOBERT_MODIFICADO_CM_LABORATORIO FLEX_LUMBAR_LAT_MANUAL_CM_DERECHA FLEX_LUMBAR_LAT_MANUAL_CM_IZQUIERDA FLEX_LUMBAR_LAT_LAB_CM_DERECHA FLEX_LUMBAR_LAT_LAB_CM_IZQUIERDA DISTANCIA_INTERMALEOLAR_MANUAL_CM DISTANCIA_INTERMALEOLAR_LAB_CM DISTANCIA_TRAGO_PARED_MANUAL DISTANCIA_TRAGO_PARED_LABORATORIO BIOLOGICO TIPO ASDAS BASDAI CONTROLADO OBSERVACIONES
1 795446676 M 49 135/86 85.9 167 35 37 41.3 51.6 32 52 35.4 24.2 43 45 25.3 26.6 22.0 15.7 12.0 11.5 11.40 12.20 36 44 9.5 N/A NO NA NA NA NA NA
2 79335107 M 54 145/84 78.8 170 52 55 57.0 52.2 43 40 37.9 25.2 50 60 38.2 40.7 21.5 17.0 13.5 12.0 15.50 15.30 39 34 11.0 N/A NO NA NA NA NA NA
3 79329652 M 55 136/81 75.0 160 75 80 59.8 51.5 40 55 37.0 38.7 65 68 38.6 29.4 23.0 23.8 16.0 20.0 15.10 17.00 31 30 10.0 N/A NO NA NA NA NA NA
4 1105679432 M 29 115/87 72.0 176 62 65 55.6 56.0 54 85 52.8 30.2 50 55 38.3 35.1 22.0 18.7 19.0 19.0 18.00 18.00 45 33 10.0 N/A NO NA NA NA NA NA
5 79702187 M 44 148/93 100.0 170 60 60 40.0 43.2 40 70 20.5 20.8 45 50 17.2 18.4 21.0 17.7 15.0 14.0 18.00 16.40 40 26 12.0 N/A NO NA NA NA NA NA
6 72276313 M 37 153/99 87.0 175 80 80 48.2 60.0 50 55 32.2 26.1 45 45 29.0 30.8 21.0 20.7 19.0 21.0 22.50 22.00 57 46 11.0 N/A NO NA NA NA NA NA
7 79692335 M 44 140/90 83.0 177 65 70 55.0 56.7 50 75 45.6 34.4 65 65 41.7 41.9 21.0 19.8 17.5 17.0 19.50 19.50 36 34 10.5 N/A NO NA NA NA NA NA
8 79518507 M 49 164/112 74.0 173 90 90 62.8 55.3 50 90 39.6 32.0 65 60 17.6 21.3 21.0 24.8 20.0 20.0 17.00 18.00 38 26 11.0 N/A NO NA NA NA NA NA
9 7335199 M 39 165/98 76.0 165 73 85 60.9 76.0 45 55 50.9 41.0 60 50 24.5 27.5 23.0 21.7 16.0 18.0 17.00 19.00 34 37 10.5 N/A NO NA NA NA NA NA
10 79799607 M 43 126/76 79.5 172 90 80 62.3 58.3 50 80 36.8 31.9 40 55 35.9 41.9 20.5 22.4 18.5 19.0 20.00 19.00 25 26 11.5 N/A NO NA NA NA NA NA
11 77158582 M 41 150/95 91.0 173 65 55 49.3 53.4 30 30 34.0 30.2 50 50 33.4 28.0 23.0 24.3 22.0 22.0 19.00 16.00 43 41 10.0 N/A NO NA NA NA NA NA
12 520849231 F 48 122/80 58.0 159 45 52 53.5 52.5 45 43 37.4 27.3 38 32 35.4 27.8 23.0 21.0 10.0 10.5 15.16 15.47 36 27 9.0 N/A NO NA NA NA NA NA
13 52107876 F 45 120/68 63.1 165 60 63 80.3 70.8 62 100 46.8 26.2 50 57 33.7 38.5 22.5 22.0 15.0 17.0 14.70 17.80 40 40 9.0 N/A NO NA NA NA NA NA
14 51774173 F 54 160/99 63.0 158 70 65 50.4 60.8 48 68 46.8 44.7 60 65 34.9 38.9 22.0 21.0 19.0 17.0 16.90 17.30 50 31 9.0 N/A NO NA NA NA NA NA
15 1127949714 F 40 110/80 93.0 165 60 65 55.5 60.3 55 95 36.8 46.0 55 60 41.2 34.0 24.0 26.0 12.5 12.0 15.70 16.30 42 36 10.0 N/A NO NA NA NA NA NA
16 52740708 F 38 98/74 74.0 156 68 65 60.3 61.4 60 88 35.0 26.3 65 68 42.0 36.6 23.0 25.0 22.0 24.0 18.70 21.60 36 42 9.0 N/A NO NA NA NA NA NA
17 52037731 F 48 120/86 82.6 152 65 70 46.4 43.1 45 75 26.6 31.8 45 60 26.2 27.4 21.5 23.0 13.0 15.0 15.80 18.00 31 29 9.5 N/A NO NA NA NA NA NA
18 1032434920 F 29 107/76 40.0 153 48 60 56.5 54.8 35 75 31.1 26.7 57 60 33.8 33.8 23.0 20.0 14.0 14.0 13.90 15.60 41 40 10.0 N/A NO NA NA NA NA NA
19 60379447 F 42 108/82 60.3 157 50 60 62.5 57.4 62 110 47.8 28.0 70 65 38.8 36.9 22.0 22.0 20.0 20.0 19.60 24.60 35 35 9.0 N/A NO NA NA NA NA NA
20 51958243 F 50 126/79 61.0 153 60 60 65.4 60.6 35 90 25.8 18.6 60 55 23.3 23.1 22.5 18.7 14.0 16.0 20.00 18.00 34 33 12.0 N/A NO NA NA NA NA NA
21 52957426 F 35 121/95 52.0 147 55 60 57.7 58.1 60 60 19.0 15.3 65 70 32.7 32.1 22.0 20.7 18.0 19.0 NA NA 45 34 11.0 N/A NO NA NA NA NA NA

3 Differences

3.1 Rotacion Cervical (Grados)

patients %>%
  ggplot(aes(x = ROTA_CERV_MANUAL_DERECHA)) +
  geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
  geom_density(aes(x = ROTA_CERV_LAB_DERECHA, colour = 'Laboratory',
                   fill = 'Laboratory'), alpha = 0.2) +
  xlab('Rotacion Cervical Derecha (Grados)') +
  theme(legend.position = 'bottom')

patients %>%
  ggplot(aes(x = ROTA_CERV_MANUAL_IZQUIERDA)) +
  geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
  geom_density(aes(x = ROTA_CERV_LAB_IZQUIERDA, colour = 'Laboratory',
                   fill = 'Laboratory'), alpha = 0.2) +
  xlab('Rotacion Cervical Derecha (Grados)') +
  theme(legend.position = 'bottom')

3.2 Flexion Frontal Cervical (Grados)

fig3 <- patients %>%
  ggplot(aes(x = FLEX_FRONT_CERV_MANUAL_GRAD_FLEXION)) +
  geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
  geom_density(aes(x = FLEX_FRONT_CERV_LAB_GRAD_FLEXION, colour = 'Laboratory',
                   fill = 'Laboratory'), alpha = 0.2) +
  xlab('Flexion Frontal Cervical (Grados)') +
  theme(legend.position = 'bottom')

ggplotly(fig3, tooltip = "all")
fig4 <- patients %>%
  ggplot(aes(x = FLEX_FRONT_CERV_MANUAL_GRAD_EXTESION)) +
  geom_density(aes(fill = 'Manual', colour = 'Manual'), alpha = 0.2) +
  geom_density(aes(x = FLEX_FRONT_CERV_LAB_GRAD_EXTESION, colour = 'Laboratory',
                   fill = 'Laboratory'), alpha = 0.2) +
  xlab('Flexion Frontal Cervical (Grados)') +
  theme(legend.position = 'bottom')

ggplotly(fig4, tooltip = "all")

4 Conclusions

Preciosa, la idea es hacer todos los analisis aqui. Que te parece? Sabes que cuentas con todo mi apoyo. Te amo!